args <- commandArgs(TRUE)

x<-c(args[1],2,3)
y<-c(2,4,6)

png("hej.png")
plot(x,y)
dev.off()
